home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Intervals / i-invert < prev    next >
Lisp/Scheme  |  1998-08-11  |  554b  |  19 lines
  1. i-invert integer-list 
  2.  
  3. This function enables a list of integers containing plus and minus values to be inverted; minus values becoming plus and vice versa.
  4.  
  5. (setq int1
  6.       (cfunction
  7.        (gen-noise-white 12 .1 .5) (g-integer -11 11)))
  8. => (-1 7 11 8 8 -8 -1 -2 7 0 1 -11)
  9.  
  10. (i-invert int1)
  11. => (1 -7 -11 -8 -8 8 1 2 -7 0 -1 11)
  12.  
  13. (setq int2
  14.       (cf-noise-white '(6 6 6) 1.0 .37 (g-integer -11 11)))
  15. => ((-11 -6 11 4 -11 10) (-6 11 4 -11 10 -8) (11 4 -11 10 -8 11))
  16.  
  17. (i-invert int2)
  18. => ((11 6 -11 -4 11 -10) (6 -11 -4 11 -10 8) (-11 -4 11 -10 8 -11))
  19.